.DO External 

.LSTGN 

.Page 

> 

> Module: Utilsl {utilities, continued } 

> PROCEDURE Move4C< Source : PTR { !!r2 } 

Destination : PTR { ! !rE } 

> > 

> PROCEDURE fnit_£xtStack 

> FROCEDURE Ext_Push 

> PROCEDURE Ext-Pop 

> FUNCTION Load_TOS : PTR { I !r2 > 

> PROCEDURE Store_TGS< Ptr : PTR { ! !r2 } 

> PROCEDURE ZeroBioek 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

. DO Externa I 
.LSTOH 
.Page 

> > > > *> > > > > >>>>>>>>>> > > > i- > > > > > > > > > 

> Procedure: Move4 

> Tills procedure is used to fnoye 4 oytes from the souce to the 

> destination. 

> Inputs: 

> Source : PTR { ? !r-2 } 

> Destination : PTR { ? !r€ } 

> Outputs: { none } 

> Rigori thm: 



f ' 


BEGIN 






• > 


FOR i 


:= TO 3 DO 


• s 


£Dest 


inatiorK 


i ) := @Source( i ) 


;> 

• > 


END 






• '> "> ":- ":- V 


> > > > > > > > > 


> > > > > > > > : 
.LSTOFF 
.FJN 


'>:>:>>>>>>> 






.00 


Interna! 






.LSTOH 








.Paqe 








.FIN 




flove4 : 












Ld 


!rl.,#4 


Hove4_Lp : 


Lde 


!r0 ?! !r2 






Lde 


§HrE, !r0 






fne«> 


Mr2 






1 new 


?!rE 






D j nz 


!r1,Move4J_p 



Ret 

.LSTOFF 

.DO External 



.LSTON 
. Page 

- > 

;> Procedure: Houe4C { moue from program space to data space } 

;> This procedure is used to move 4 bytes from the souce to the 
;> destination. 

;> 

;> Inputs: 

;> Source : PTR { !!r2 } 

;> Destination : PTR { ! !rE } 

;> Outputs: { none ) 

; > fi i gor i thm : 

BEGIN 
FOR i := TO 3 00 
§Destination< i > := ?Source< i > 
END 






Move4C : 
J1ove4C_Lp : 



;- > :■■ s s- > ;- 


- ;• ;■ > > ;• ;• .•- ? :■ 


.LSTOFF 




.FIN 




.00 


Internal 


.LSTON 




.Page 




.FIN 




Ld 


Ir1,«4 


Ldc 


!rO,§Hr-2 


Lde 


§HrE, irO 


! new 


! !r2 


I new 


i fpg 


Djnz 


! r 1 , Move4C_Lp 



Ret 

.LSTOFF 

.00 External 
.LSTON 
. Page 
■>>>>>>> > > > > > > > >>>»>>>>> > > >>> 

Procedure : 1 n i t_£x tS tack 

This procedure i n i t i a I i zes 14 1 dge t ' s ex t erna I s tack . This 

stack is a software implemented structure, and as such does not 

use the Z8's external stack capabilities. 

inputs: { none } 

Outputs: { none } 

Global Variables Changed: 
StackPtr 

R ! gor i thm : 

BEGIN 
StackPtr := TopOf Stack 



END 



;>>>>>>>>>>>>> 


>>>>>>>>>>>>>>>>>>>>> 






.LSTOFF 








.FIN 








.DO 


Internal 






.LSTON 








• Page 








.F!N 






Init-ExtStock: 










Ld 


!r2 / «.HIBVTE. 


StackPtP 




Ld 


ir3,*.LGW3VTE 


. StackPtr 




Ld 


!rG.*.HIBVTE. 


TopOf Stack 




Lde 


&Hr2,!rO 






i new 


! !r2 






Ld 


!rQ,*.LOMBVTE 


. TopOf Stack 




Lde 


§! \r2 t IrQ 






Jp 


Bank_Ret 






. LSTOFF 








.DO 


External 






.LSTON 








. Page 










Procedure: Ext_Push 

This procedure pushes the current working register set 
onto the external siQQk. 

inputs: { none } 

Outputs: { none } 

R f gor i thin : 

BEGIN 
FOR i := TO 15 DO 
§StackPtr := UorkingRegisterE 15 - i I 
StackPtr := StackPtr -" 1 
END 



■ :> :> > > > > > > > > > > : 


> > > > > > > > > > 
.LSTOFF 
.FIN 


> > > > > > > > > > > > 




.DO 


Interna! 




LSTON 






.Paqe 






.FIN 




Ext_Fush: 








Ld 


SerReq4,Rp ;saue context 




Srp 


*MrkJ$cr 




Call 


Load_TOS 




Ld 


IrOj, lr4 ; sav& context 




Rdd 


!rO,*$GF ; start at regist* 




Ld 


! r 1 , * 16 ; 1 oad 16 req i s ters 


Ext_Push_Lp: 


Ld 


!rF,§!rO" 




Lde 


§i!r2, !r-F 



Dec ! rO 

Decw !!r2 

D j nz ! r 1 , Ex t_Push_Lp 

Call Store_TQS 

Ld Rp, ! r4 ; restore context 
Jp BankJtet 

.LSTOFF 

.DC External 

.LSTON 

.Page 

;> Procedure: Ext_Fop 

;> This procedure pops 16 locations from the external stack 
;> into the current working register set. 

• > 

: > inputs: { none } 

• ■> 

;> Outputs: { none } 

; > ft I gor I thm . 

;> 8EGJH 

";> FOR 1 := TO 15 DO 

',$ StockPtr ".— StockPtr •*■ 1 . 

;> MorkinqReqisterSetl i J := fStackPtr 

:> END 



Ext_Pop 



LSTOFF 

FiH 

DO 

LSTOH 

Page 

FIN 



Ld 

Srp 

Call 
Ld 
Ld 
! nc«? 



Internal 



ScrReg4.Rp ;save context 
•UrkJScr 

Load_TOS 

!r0, !r4 ; sav& context 

f r 1 1 * 16 ; I oad 16 reg i s ters 

!!r2 ; StockPtr := StockPtr + 1 



Ext_Pop_Lp : 


Ldei 


§ 1 rO , § 1 1 r-2 




Djnz 


!r!,Ext_Pop_LP 




Decw 


H.r2 ; point at TOS 




Call 


Store_T0S 




Ld 


Rp^!r4 ; restore context 




Jp 


Bank_Ret 



.LSTOFF 



.DO Externa! 

.LSTOH 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: Load_TOS 
> 

> This functions returns a ptr to the current top 

> of the external stack. 



; > inputs: { None } 




;> Outputs: 

;> Load_TOS : PTR { ! 


!r2 } 


; > R 1 gor i thm : 




;> BEGIN 

;> Load_T0S := StackF'tr 

; > END 




■ :* y y y yyyy y y y ? y y y y y y y y y y y y y y yyyyyy ?• 


>>> 


.LSTOFF 

.FIN 

.DO Interna! 

.LSTOH 

. Paqe 

.Fin 




Load_TOS : 





Ld ?K3,#.H!8VTE. StackPtr 

Ld Jr1,*.L0WBVTE. StackPtr 

Lde !r2,§? !r0 

I new I ! rO 

Lde ! r3 , § \ ! rO 

Ret 

.LSTOFF 

.DO External 

.LSTOH 

.Page 

;> Procedure: Store_T0S 

;> This procedure stores the contents of Ptr into StackPtr 

;> Inputs: 

;> Ptr : PTR { ??r-2 > 

;> Outputs: { none } 

; > R I gor i thm : 
■ ■> 

;> BEGIN 

;> StackPtr := Ptr 

; > END 
- ~> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 



. Paqe 
.FIN 

5tore_T0S: 

Cp ?r3,».L0UBVTE. StackPtr ; check for- stack underflow 
Jr Ugt,St_TOS 

Srp «Wrk_JSys 

Pop ir-4 ;save some history of stack frame 

Pop !r5 

Pop ! r& 

Pop !r? 

Ca'l i Rbort 

St_TOS: Ld !rO,*.H!BVTE. StackPtr 

Ld !r1,*.L0HBVTE. StackPtr 

Lde £!!r-0, !r2 

Incw ! !r0 

Lde 2!!r0, !r3 
Ret 

.LSTOFF 

.DO External 

.LSTON 

. Page 

Procedure : ZeroB ! ock 

This procedure zeros out the 532 blocks pointed to by the 
input parameter 

inputs: 

BiockPtr : PTR { 1 !r2 } 

Outputs: { none > 



• > ■» v > •> •> > •* •> > V ? 


»>>>>> > > > > > 

.LSTOFF 
.FIN 


> > > > > > > > y > 




.DO 


Internal 




.LSTON 






. Paqe 






.FIN 




ZeroB i ock : 








Ld 


»rE,*.H!BYTE. 532 




Ld 


!rf,*.LOHBVTE. 532 



Clr !r0 



ZeroB Ik-Lp: 


Lde 


§? »r2, !r0 




i ncu! 


\ lr-2 




Decu? 


!!rE 




Jr 


Nz, ZeroB ik_Lp 




Jp 


Bank-Ret 




.LSTOFF 






.DO 


External 




.LSTON 






.Page 




• > > > > > > > > > > > 


>>>>>>>>>>> 


> > > > > > > > > > > 



Procedure: ZeroHeader 

This procedure zeros the sector gap, header sync gap, 
header field, arid data sync field. 

Inputs: { none } 

Outputs: { none } 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
. Page 
.FIN 



'eroHeader : 



'eroHdr_Lp : 



Ld !r1,*K MBufferl - UriteRrray > 

Ld !r2,».HIBVTE. Uriteflrray 

Ld !r3,».L0HBVTE. Mriterirraii 

Clr !r0 

Lde §!!r2, irO 

Incm . ! ir2 

D j nz tri, ZeroHdr_Lp 

find Excpt_Stat, »$FF-Hzsro_Stat-Buf -Damage 

dp Bank_Bet 



.LSTOFF 



